home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Tool Chest / OS⁄Toolbox / ShowINIT 1.1b2 / ShowDemo.a < prev    next >
Encoding:
Text File  |  1988-08-07  |  794 b   |  36 lines  |  [TEXT/MPS ]
  1. ; File: ShowDemo.a
  2. ; Last Modified: Thursday, July 14, 1988 9:04:44 PM
  3. ;------------------------------------------------------------------------------------------------
  4. ;
  5. ;    Sample INIT to demo ShowINIT usage
  6. ;
  7. ;------------------------------------------------------------------------------------------------
  8.  
  9.  
  10.         INCLUDE    'Traps.a'
  11.         INCLUDE    'QuickEqu.a'
  12.         INCLUDE    'SysEqu.a'
  13.         INCLUDE    'ToolEqu.a'
  14.  
  15.         BLANKS  ON
  16.         STRING  ASIS
  17.  
  18. iconID        equ    -4064
  19.  
  20. Start:        MAIN
  21.         IMPORT    ShowINIT
  22.         movem.l    d3-d7/a2-a6,-(sp)
  23.         tst.b    MBState            ; don't install if mouse button is down
  24.         bpl.s    NoInstall
  25.         btst    #0,KeyMap+7        ;  or if shift key
  26.         bne.s    NoInstall
  27.  
  28.         move    #IconID,-(sp)        ; ICN# id
  29.         move    #-1,-(sp)        ; use default moveX
  30.         bsr.s    ShowINIT        ; draw the icon
  31. NoInstall:
  32.         movem.l    (sp)+,d3-d7/a2-a6
  33.         rts
  34.  
  35.         END
  36.